home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 8 / Amoszine 8 (Disk 2 of 3).adf / AMON_Extension.lha / amon_extension / examples_asc / FastAngle_Arrows.asc < prev    next >
Text File  |  1995-07-24  |  907b  |  50 lines
  1. '
  2. 'Program: Lock an array of arrows onto the mouse pointer.
  3. ' Author: Paul Overy.
  4. '   Date: 19/7/1995
  5. '
  6. Proc _SET_UP
  7. '
  8. '
  9. Break Off : NUL=Execall(-132)
  10. '
  11. Repeat 
  12.    '
  13.    Sprite 0,X Hard(Rodent X),Y Hard(Rodent Y),1
  14.    '
  15.    For X=0 To 304 Step 32
  16.       For Y=0 To 192 Step 64
  17.          FRAME=Fast Angle(X,Y,3)
  18.          Put Block FRAME,X,Y
  19.       Next Y
  20.    Next X
  21.    '
  22.    Beam Wait Y Hard(208) : Screen Swap 
  23. Until Rodent Key or Keycode
  24. '
  25. NUL=Execall(-138) : Break On 
  26. '
  27. Procedure _SET_UP
  28.    '
  29.    Screen Open 0,320,64,4,Lowres : Hide 
  30.    Cls 0 : Draw 8,1 To 8,15 : Draw 1,8 To 15,8
  31.    Get Sprite 1,0,0 To 16,16
  32.    '
  33.    Load Iff Dir$+"Arrows72.iff",0
  34.    '
  35.    Screen Display 0,128,42,,
  36.    '  
  37.    N=1
  38.    For Y=0 To 48 Step 16
  39.       For X=0 To 304 Step 16
  40.          Get Block N,X,Y,16,15,0
  41.          Inc N
  42.       Next X
  43.    Next Y
  44.    '
  45.    Cls 0 : Double Buffer : Autoback 0
  46.    Limit Rodent 0,0 To 304,200
  47.    '
  48. End Proc
  49.  
  50.